home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / batch / ubelt11a.zip / BELTDEMO.BAT < prev    next >
DOS Batch File  |  1991-11-06  |  8KB  |  338 lines
  1. @echo off
  2. rem =========================================
  3.  
  4. rem =  This is a demo of the Utility_Belt
  5.  
  6. rem =  collection of the .BAT file enhancers
  7.  
  8. rem =  from Herne Data Systems Ltd.
  9.  
  10. rem =  PO Box 250, Tiverton, ON  N0G 2T0
  11.  
  12. rem =  all programs are Copyright (c) 1990-91
  13.  
  14. rem =========================================
  15.  
  16. vpstripe 0 v
  17. vpbox 0 0 0 0 6 18 21 61
  18. vpbox 0 1 7 2 5 17 20 60
  19. vpat 0 1 7 8 25 Welcome to the Utility_Belt Demo
  20. vpat 0 1 7 10 32 Brought to you by
  21. vpat 0 1 7 12 29 Herne Data Systems Ltd.
  22. vpat 0 1 7 14 25 PO Box 250, Tiverton, ON N0G 2T0
  23.  
  24. vpbox 0 0 0 0 20 23 5 75
  25. vpbox 0 4 14 1 21 24 6 76
  26. vpat 0 4 14 22 14 Note:
  27. vpat 0 4 14 23 14 This screen was created with VPSTRIPE, VPBOX, and VPAT
  28. vpcls 1
  29. vpcls 2
  30. vpcls 3
  31. sleep /c3
  32. vptnt 1 7
  33.  
  34. :vpboxdemo
  35. vpset 1
  36. vpcls 1 2 7
  37. vpbox 1 0 7 1 1 3 50 70
  38. vpat 1 0 7 2 55 VPBOX Demo
  39. vpbox 1 1 15 9 2 7 4 30
  40. vpat 1 1 15 4 8 This screen shows a
  41. vpbox 1 3 0 11 6 10 15 50
  42. vpat 1 3 0 8 20 number of windows created
  43. vpbox 1 4 14 6 15 19 30 70
  44. vpat 1 4 14 17 40 with the VPBOX command.
  45.  
  46. sleep /c2
  47. vpbox 1 7 1 4 12 19 2 27
  48. vpat 1 7 1 14 4 There are 26 styles
  49. vpat 1 7 1 16 4 of borders to choose
  50. vpat 1 7 1 18 4 from!!
  51. sleep /c1
  52. vpbox 1 6 15 5 11 14 51 78
  53. vpat 1 6 15 12 53 The text is added with
  54. vpat 1 6 15 13 53 the VPAT command.
  55.  
  56. sleep /c1
  57. vpbox 1 0 0 0 20 22 6 50
  58. vpbox 1 5 7 18 21 23 7 51
  59. vpat 1 5 7 22 15 Press any key to continue ...
  60. getkey a
  61. vpbh 1 7 s
  62.  
  63. :vpstripedemo
  64. vpstripe 0 h
  65. vpset 0
  66. vpbox 0 0 7 1 1 3 50 70
  67. vpat 0 0 7 2 55 VPSTRIPE Demo
  68. vpbox 0 4 14 1 21 24 6 76
  69. vpat 0 4 14 22 14 This is VPSTRIPE in horizontal rainbow mode.
  70. vpat 0 4 14 23 14 Other modes are available.  Press a key to see...
  71. getkey a
  72. vpstripe 0 v 1 13
  73. vpbox 0 0 7 1 1 3 50 70
  74. vpat 0 0 7 2 55 VPSTRIPE Demo
  75. vpbox 0 4 14 1 21 24 6 76
  76. vpat 0 4 14 22 14 This is VPSTRIPE in vertical two color mode.
  77. vpat 0 4 14 23 14 Press a key to continue ...
  78. getkey a
  79.  
  80. :vpbhdemo
  81. vpbh 2 7 s
  82. vpbox 0 4 14 1 21 24 6 76
  83. vpat 0 4 14 22 14 The screen clearing special effects are provided by
  84. vpat 0 4 14 23 14 VPTNT (explosion) and VPBH (black hole)
  85. sleep /c2
  86.  
  87. vpbox 0 7 1 4 12 18 2 27
  88. vpat 0 7 1 14 4 The time delays are
  89. vpat 0 7 1 16 4 provided by SLEEP
  90. sleep /c1
  91.  
  92. vpbox 0 6 15 5 10 15 51 78
  93. vpat 0 6 15 12 53 The keyboard input
  94. vpat 0 6 15 13 53 is by GETKEY
  95. sleep /c1
  96.  
  97. vpbox 0 1 7 19 1 7 1 30
  98. vpat 0 1 7 3 5 Sound effects by
  99. vpat 0 1 7 5 5 BLEEP 
  100. bleep 1 349 2 1;1 392;1 440;1 523 2 4;1 523 4 1;1 587 2;1 523;1 440 2 4;1 349 4 1;1 392 2;2 440;1 392;1 349 2 2;1 392 8 1;
  101.  
  102. vpbox 0 0 13 3 3 8 40 70
  103. vpat 0 0 13 5 45 Press any key
  104. vpat 0 0 13 6 45 to continue . . .
  105. getkey a
  106.  
  107. vpcls 2 4 14
  108. vpbox 2 0 13 1 21 24 6 76
  109. vpat 2 0 13 22 8 The menu display on this screen was created with the command:
  110. vpat 2 0 13 23 8 SELECT Demo Items; VPSTRIPE; VPTNT; VPFLIP; VPCOPY; VPSET; VPBOX
  111.  
  112. :selectdemo
  113. vpbox 2 0 7 1 0 2 50 70
  114. vpat 2 0 7 1 55 SELECT Demo
  115.  
  116. vpset 2 3
  117. select Demo Items; VPSTRIPE; VPTNT; VPFLIP; VPCOPY; VPSET; VPBOX
  118. if errorlevel 6 goto item6
  119. if errorlevel 5 goto item5
  120. if errorlevel 4 goto item4
  121. if errorlevel 3 goto item3
  122. if errorlevel 2 goto item2
  123. if errorlevel 1 goto item1
  124.  
  125. vpbh 0 13
  126. vpbox 2 0 0 0 6 10 21 61
  127. vpbox 2 1 7 2 5 9 20 60
  128. vpat 2 1 7 7 25 You pressed the 'Esc' key
  129. sleep /c2
  130. goto contdemo
  131.  
  132. :item1
  133. vpstripe 2 v 1 4
  134. vpbox 2 0 0 0 6 10 21 61
  135. vpbox 2 1 7 2 5 9 20 60
  136. vpat 2 1 7 7 25 You pressed the 'A' key
  137. vpbox 2 4 14 1 21 24 6 76
  138. vpat 2 4 14 22 14 These stripes are created with the command:
  139. vpat 2 4 14 23 14 VPSTRIPE 2 V 1 4
  140.  
  141. sleep /c2
  142. goto moredemo
  143.  
  144. :item2
  145. vptnt 1 7
  146. vpbox 2 0 0 0 6 10 21 61
  147. vpbox 2 1 7 2 5 9 20 60
  148. vpat 2 1 7 7 25 You pressed the 'B' key
  149. vpbox 2 4 14 1 21 24 6 76
  150. vpat 2 4 14 22 14 The explosion was created with the command:
  151. vpat 2 4 14 23 14 VPTNT 1 7
  152. sleep /c2
  153. goto moredemo
  154.  
  155. :item3
  156. vptnt 1 7
  157. vpbox 2 0 0 0 6 10 21 61
  158. vpbox 2 1 7 2 5 9 20 60
  159. vpat 2 1 7 7 25 You pressed the 'C' key
  160. vpbox 2 2 14 1 21 24 6 76
  161. vpat 2 2 14 22 8 Excuse me while I setup the video pages for the
  162. vpat 2 2 14 23 8 video page flipping demo.
  163.  
  164. vpstripe 0 h
  165. vpbox 0 0 0 0 6 10 21 61
  166. vpbox 0 1 7 2 5 9 20 60
  167. vpat 0 1 7 7 25 This is video page 0
  168. vpat 0 0 15 20 20   It is the normal DOS default page.
  169.  
  170. vpcls 1 2 13
  171. vpbox 1 0 0 0 6 10 21 61
  172. vpbox 1 1 7 2 5 9 20 60
  173. vpat 1 1 7 7 25 This is video page 1
  174. vpat 1 2 15 15 10 You may want to display a help message on this page
  175.  
  176. vpcls 3 4 7
  177. vpbox 3 0 0 0 6 10 21 61
  178. vpbox 3 1 7 2 5 9 20 60
  179. vpat 3 1 7 7 25 This is video page 3
  180. vpat 3 4 7 13 5 You can flip between pages instantly.  In any order you choose!
  181.  
  182. vpbox 2 0 0 0 6 10 21 61
  183. vpbox 2 1 7 2 5 9 20 60
  184. vpat 2 1 7 7 25 This is video page 2
  185. vpat 2 1 7 19 20   Each page can hold different text.
  186.  
  187. vpflip 2 3 0 1
  188. goto moredemo
  189.  
  190. :item4
  191. vpcls 2 1 7
  192. vpbox 2 0 0 0 6 10 21 61
  193. vpbox 2 1 7 2 5 9 20 60
  194. vpat 2 1 7 7 25 You pressed the 'D' key
  195. vpbox 2 4 14 1 21 24 6 76
  196. vpat 2 4 14 22 14 The VPCOPY command lets you SAVE and recall entire screens.
  197. vpat 2 4 14 23 14 With VPCOPY 2 0, this page is being copied to page 0 ...
  198. vpcopy 2 0
  199. sleep /c2
  200.  
  201. vpset 0
  202. vpbox 0 4 14 1 21 24 6 76
  203. vpat 0 4 14 22 14 You are now on page 0. If we go to page 1, we
  204. vpat 0 4 14 23 14 can watch the copying take place with VPCOPY 2 1
  205. sleep /c2
  206.  
  207. vpstripe 1 h
  208. vpset 1
  209. vpcopy 2 1
  210. vpbox 1 4 14 1 21 24 6 76
  211. vpat 1 4 14 22 14 Neat, eh?
  212. vpat 1 4 14 23 14 Press any key to get back to page 2 ...
  213. getkey a
  214. vpset 2
  215. goto moredemo
  216.  
  217. :item5
  218. vptnt 1 7
  219. vpbox 2 0 0 0 6 10 21 61
  220. vpbox 2 1 7 2 5 9 20 60
  221. vpat 2 1 7 7 25 You pressed the 'E' key
  222. vpbox 2 4 14 1 21 24 6 76
  223. vpat 2 4 14 22 14 You are now in video page 2.  With the command VPSET 0,
  224. vpat 2 4 14 23 14 you will be sent to video page 0.
  225.  
  226. sleep /c2
  227. vpset 0
  228. vpbh 2 0
  229. vpbox 0 4 14 1 21 24 6 76
  230. vpat 0 4 14 22 14 Hi there, you are now in video page 0.
  231. vpat 0 4 14 23 14 Press any key to get back to page 2 ...
  232. getkey a
  233. vpset 2 23
  234. sleep /c2
  235. goto moredemo
  236.  
  237. :item6
  238. vptnt 1 7
  239. vpbox 2 0 0 0 6 10 21 61
  240. vpbox 2 1 7 2 5 9 20 60
  241. vpat 2 1 7 7 25 You pressed the 'F' key
  242.  
  243. vpat 2 1 7 15 20 Of course, this box was created with VPBOX
  244. sleep /c2
  245.  
  246. :moredemo
  247. vpcls 2 4 14
  248. vpbox 2 2 14 1 21 24 6 76
  249. vpat 2 2 14 22 8 Try some of the other menu items.
  250. vpat 2 2 14 23 8 Then press 'Esc' to continue with the demo.
  251. goto selectdemo
  252.  
  253. :contdemo
  254. vptnt 3 14
  255. vpbox 2 0 0 0 6 11 21 61
  256. vpbox 2 1 7 2 5 10 20 60
  257. vpat 2 1 7 7 32 Now for something
  258. vpat 2 1 7 8 30 completely different.
  259. sleep /c1
  260.  
  261. :secure
  262. vpcls 0 1 7
  263. vpset 0
  264.  
  265. vpat 0 1 7 1 5 We will try some of the security utilities ...
  266. vpat 0 1 7 23 5 (Press 'Esc' to end the demo)
  267. vpset 0 5
  268. select Security Program;HANG;REBOOT;WHATIS
  269. if errorlevel 3 goto whatis
  270. if errorlevel 2 goto reboot
  271. if errorlevel 1 goto hang
  272. goto exit
  273.  
  274. :reboot
  275. vptnt 4 7
  276. vpbox 0 0 0 0 4 9 21 61
  277. vpbox 0 1 7 2 3 8 20 60
  278. vpat 0 1 7 5 25 REBOOT will reset your
  279. vpat 0 1 7 6 25 computer...
  280. vpset 0 11
  281. confirm Reboot the computer
  282. if errorlevel 1 goto secure
  283. vpcls 0 4 7
  284. vpset 0 5
  285. reboot OK, here goes ...
  286.  
  287. :hang
  288. vptnt 3 0
  289. vpbox 0 0 0 0 4 9 21 61
  290. vpbox 0 1 7 2 3 8 20 60
  291. vpat 0 1 7 5 25 HANG will lockup your
  292. vpat 0 1 7 6 25 computer completely...
  293. vpset 0 11
  294. confirm Lockup the computer
  295. if errorlevel 1 goto secure
  296. vpcls 0 4 7
  297. vpat 0 1 7 23 10 (I turned off the alarm for you first)
  298. vpset 0 5
  299. hang /q You will have to do a hard boot now ...
  300.  
  301. :whatis
  302. vptnt 2 7
  303. vpbox 0 0 0 0 6 11 21 61
  304. vpbox 0 1 7 2 5 10 20 60
  305. vpat 0 1 7 7 25 WHATIS tells you about
  306. vpat 0 1 7 8 25 your disk drives...
  307. sleep /c2
  308. whatis a
  309. vpat 0 0 7 23 5 (Press any key to continue...)
  310. getkey a
  311. goto secure
  312.  
  313.  
  314. rem === exit back to dos
  315. :exit
  316. vpcls 0
  317. vpset 0
  318. vptnt 4 14
  319.  
  320. vpbox 0 0 0 0 6 17 21 61
  321. vpbox 0 3 15 2 5 16 20 60
  322.  
  323. vpat 0 3 15 8 25 ╥  ┬
  324. vpat 0 3 15 9 25 ║  │
  325. vpat 0 3 15 10 25 ╠══╡ ╔═╕ ╔═╕ ╔═╕ ╔═╕  Data
  326. vpat 0 3 15 11 25 ║  │ ╟─┘ ║   ║ │ ╟─┘  Systems
  327. vpat 0 3 15 12 25 ╨  ┴ ╚═╛ ╨   ╨ ┴ ╚═╛  Ltd.
  328. vpat 0 3 15 13 25 Software worth hunting for!!
  329.  
  330. vpbox 0 0 0 0 20 23 12 72
  331. vpbox 0 1 7 2 19 22 11 71
  332. vpat 0 1 7 20 20 Thank you for trying the Utility_Belt Demo
  333. vpat 0 1 7 21 25 from Herne Data Systems Ltd
  334. sleep /c4
  335. vpcls 0
  336. asp
  337.  
  338.